home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS222.dsk / HELLO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  44 lines
  1. 100  HOME 
  2. 110  FOR D = 1 TO 1800: NEXT D
  3. 120  SPEED= 80
  4. 130  VTAB 6: HTAB 14: PRINT "READING  FUN"
  5. 140  FOR D = 1 TO 1000: NEXT D
  6. 150  VTAB 8: HTAB 9: PRINT "TEXT DISPLAY PROGRAMS"
  7. 160  FOR D = 1 TO 200: NEXT D
  8. 170  VTAB 10: HTAB 12: PRINT "FOR THE APPLE //"
  9. 180  FOR D = 1 TO 1800: NEXT D
  10. 190  VTAB 18: PRINT "(c) COPYRIGHT SEPT. 1987    PHIL SHAPIRO"
  11. 200  FOR D = 1 TO 800: NEXT D
  12. 210  VTAB 20: PRINT "- - PRESS THE SPACE BAR TO CONTINUE - -"
  13. 220  VTAB 22: GET M$: FOR D = 1 TO 400: NEXT D: HOME : FOR D = 1 TO 800: NEXT D
  14. 230  VTAB 2: PRINT "THIS DISK IS A SHAREWARE DISK.  YOU ARE"
  15. 240  VTAB 4: PRINT "FREE TO COPY IT AND GIVE IT AWAY TO"
  16. 250  VTAB 6: PRINT "FRIENDS."
  17. 260  FOR D = 1 TO 800: NEXT D
  18. 270  VTAB 8: PRINT "HOWEVER, IF YOU LIKE THE PROGRAMS AND"
  19. 280  VTAB 10: PRINT "DECIDE TO KEEP THIS DISK, YOU ARE"
  20. 290  VTAB 12: PRINT "OBLIGATED TO SEND THE AUTHOR $12.00 ."
  21. 300  FOR D = 1 TO 1000: NEXT D
  22. 310  VTAB 14: PRINT "SHAREWARE IS A UNIQUE SYSTEM BASED ON"
  23. 320  VTAB 16: PRINT "HONOR AND TRUST.  IT ENABLES GOOD"
  24. 330  VTAB 18: PRINT "PROGRAMS TO BE MARKETED AT REASONABLE"
  25. 340  VTAB 20: PRINT "PRICES.   A LOT OF WORK HAS GONE INTO"
  26. 350  VTAB 22: PRINT "- - PRESS THE SPACE BAR TO CONTINUE - -"
  27. 360  GET M$: FOR D = 1 TO 300: NEXT D: HOME : FOR D = 1 TO 800: NEXT D
  28. 370  VTAB 2: PRINT "THE PROGRAMS ON THIS DISK."
  29. 380  FOR D = 1 TO 400: NEXT D
  30. 390  VTAB 4: PRINT "PLEASE DON'T BETRAY THIS TRUST."
  31. 400  FOR D = 1 TO 1000: NEXT D
  32. 410  VTAB 6: PRINT "IF YOU DECIDE TO KEEP THIS DISK, SEND"
  33. 420  VTAB 8: PRINT "$12.00 TO:"
  34. 425  FOR D = 1 TO 600: NEXT D
  35. 430  VTAB 10: HTAB 10: PRINT "PHIL SHAPIRO"
  36. 440  VTAB 12: HTAB 10: PRINT "5201 CHEVY CHASE PKWY, NW
  37. 450  VTAB 14: HTAB 10: PRINT "WASHINGTON D.C., 20015"
  38. 460  FOR D = 1 TO 600: NEXT D
  39. 470  VTAB 16: PRINT "YOU MAY WANT TO READ 'A NOTE FROM THE"
  40. 480  VTAB 18: PRINT "AUTHOR' BEFORE YOU BEGIN."
  41. 490  VTAB 20: PRINT "TYPE 'RUN A.NOTE.FROM.THE.AUTHOR'."
  42. 500  FOR D = 1 TO 600: NEXT D
  43. 510  VTAB 22: PRINT "OTHERWISE TYPE 'CATALOG', AND RETURN."
  44. 520  END